﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<card title="江湖银号">
<p>



<%

ids=myid
num=abs(clng(request("num")))
yznum=clng(num/qingtian.admintk("jb"))
num=num*0.01*qingtian.admintk("ty")+num
if num>qingtian.money then
qingtian.err("您没有这么多金币呀<br/>---------<br/><a href='zhyz.asp?cc="&cc&"&amp;ve="&ve&"'>返回重写</a><br/><a href='index.asp?cc="&cc&"&amp;ve="&ve&"'>我的江湖</a><br/>")
end if

set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select * from jfpost where cstr(ids)="&myid
rs.open strsQL,liao,1,2
if rs.recordcount<1 then
rs.addnew
rs("ids")=myid
rs("usejf")=rs("usejf")+yznum
rs.update
rs.Close
set rs=Nothing

set rs3=Server.CreateObject("ADODB.Recordset")
strsQL="select * from wupin where cstr(ids)="&myid
rs3.open strsQL,liao,1,2
if rs3.recordcount<1 then
rs3.addnew
rs3("ids")=myid
rs3("yz")=rs1("yz")+yznum
rs3.update
else
rs3("yz")=rs3("yz")+yznum
rs3.update
end if
 rs3.Close
set rs3=Nothing
qingtian.payy("-"&num)
msg="转换成功!"
else
usejf1=clng(rs("usejf"))


sql="update users set qingtian.money=qingtian.money-"&num&" where id='" & myid & "'"
'conn.Execute(sql)

set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select * from jfpost where cstr(ids)="&myid
rs.open strsQL,liao,1,2
rs("usejf")=rs("usejf")+yznum
rs.update
 rs.Close
set rs=Nothing

set rs3=Server.CreateObject("ADODB.Recordset")
strsQL="select * from wupin where cstr(ids)="&myid
rs3.open strsQL,liao,1,2
if rs3.recordcount<1 then
rs3.addnew
rs3("ids")=myid
rs3("yz")=rs1("yz")+yznum
rs3.update
else
rs3("yz")=rs3("yz")+yznum
rs3.update
end if
 rs3.Close
set rs3=Nothing
qingtian.payy("-"&num)
msg="转换成功!"
end if

      
%>
<%=msg%><br/>系统扣除你<%=num%><%=qingtian.bi%>，你的银两增加<%=yznum%>两，你剩余的<%=qingtian.bi%>为<%=qingtian.money%><br/>
---------<br/>
<a href="zhyz.asp?cc=<%=cc%>&amp;ve=<%=ve%>">继续转换</a><br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">我的江湖</a><br/>
<%qingtian.shuchu%>

